home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Development / General / GTQLib1.2.as Folder / Sample Scripts / MailWithProp < prev    next >
Encoding:
Text File  |  1994-05-04  |  275 b   |  15 lines  |  [TEXT/ToyS]
  1. property gotAddress : false
  2. property theAddress : 0
  3.  
  4. on send(m)
  5.     get user
  6.     if not gotAddress then
  7.         set theAddress to choose address
  8.         set gotAddress to true
  9.     end if
  10.     mail to theAddress message m
  11. end send
  12.  
  13. on run
  14.     send("Hello there.  This is the text of the letter.")
  15. end run